home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 201-225 / 201 / draco / s / lpat < prev    next >
AmigaDOS Script File  |  1995-03-13  |  376b  |  18 lines
  1. .key com/a,pat/a,opt1,opt2,opt3,opt4
  2. .bra {
  3. .ket }
  4. failat 21
  5. list >t:q{$$} {pat} lformat="%s%s {opt1} {opt2} {opt3} {opt4} "
  6. IF NOT FAIL
  7. oneLine >t:s{$$} <t:q{$$}
  8. echo >t:r{$$} noline "{com} "
  9. join t:r{$$} t:s{$$} as t:p{$$}
  10. execute t:p{$$}
  11. delete t:p{$$} t:q{$$} t:r{$$} t:s{$$}
  12. ELSE
  13. echo "<pat> not found"
  14. delete t:q{$$}
  15. ENDIF
  16. failat 10
  17. ;do wildcards for single arg command
  18.